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**F ILE**1D**RUJMAN 
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RR RR UU UU JJ JJ MM MM AA AA WN NN eeee 
RR RR = UUUUUUUUUU JJJJJJ MM MM AA AA WN NN cece 
RR RR = UUUUUUUUUU JJJJJJ MM MM AA AA WN NN cece 
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LL HII SSSSSSSS 
LL I] $$ 
LL I] SS 
LL I] SS 
LL I] SS 
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LL I] SS 
LL I] SS 
LL I] SS 
LL I] $s 
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1-3 1984 01:31:48 VAX-11 Bliss ene V4.0-742 al 
14 eet 7 13:25:98 DISKS$V TER: COUNT. SRCJRUJMAN. 832: we 1) 
MODULE RUJMAN ( 
LAWeUAGE OL 15559) 


IDENT = * G reg tI (EXTERNAL=GENERAL) , 
IDEN 


UPwn— 


BEGIN 


ie COPYRIGHT (c) 1978 1980 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ie ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i. ae pokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPL TED BY DIGITAL. 
PITTITIIILITILILI LLL LLL LLL LLL LLL LLL LLL LiL Titi iiiiiiiii iii 
as 

FACILITY: MOUNT Utility Structure Level 2 
i ABSTRACT: 


This module contains those routine Socoocers, Se bendig See f ser" n 
on es- - 


SSsssosososoooooooooSSesees 


and manipulation of Recovery Unit Journals 
disk volumes. 


i ENVIRONMENT : 


pe we operating system, including privileged system services 
nternal exec routines. 


AUTHOR: Steven T. Jeffreys CREATION DATE: 18-Jul-1983 
i MODIFIED BY: 


v03-008 HHO0041 Hai Huang 
Remove REQUIRE 'LIBD$:(CVASLIB.OBJJMOUNTMSG.B352'. 


v03-007 HHO019 Hai Huang 08-May-1984 


| 
| 
!eeeeeeeeeeeeeeeReeeeAHeeeeeeHeeeeeeeKeleeereeereeeKeReeeKeeeteeeeetenteneees 
} 
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Se 


-000 14-Sep-1 
38 : Another round in fixing up truncation errors. 
60 i v03-006 HHO007 Hai Huang 22-Mar-1984 
6 : Fix truncation error y ae by cluster-mount support. 
8 i v03-004 wMc0002 Wayne Cardoza i teoncte 
3 Immediately return from main routine to disable RU journals 
66 i v03-004 DAS0001 David Solomon 29-Nov-1983 
6 ; Add support for spec) tying maximum journal record size 
o8 } with a new keyword, /JOURNAL=(RECORD_SIZE=n). 
0 i v03-003 wMC0001 Wayne Cardoza 20-Sep-1983 

f} H DEVEXI is legal return status for CREJNL. 
7 i v03-002 ¢ps0001 Christian D. Saeth 30-Aug-1983 
ee : ee e que of deteult cif directory from Cjournal) to 

i 
7 ! v03-001 praeite Steven T. Jeffre eys : 02-Aug-1983 
A : Created local definition of SDISMOU macro. 

i 


LIBRARY ‘SYSS$LIBRA aay" fh § 483! ,L352°; 
REQUIRE *SRC$:MOUDE 
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5 
7 FORWARD OUT 
ACCESS eo ' Look up RUJ file on volume 

Rg ACTIVATE JOURNAL, ' Main routine 
90 ANALYZE E Bevlist : NOVALUE, ' Build volume data base from device List 
91 CREATE ' Call SCREJNL to create an RUJ 

4 DISMOUNT VOLSET : NOVALUE, ! Dismount all or part of a volume set 

S GET_VOL ‘ ' Return volume name 

94 INTERCEPT SIGNAL, : Condition handler 

95 RCP_RESTART; ! Restart ‘frozen’ RUJ 
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"aah i nihil innit 
'ee ee 
'ee NOTE hel 
iee ee 
ive The a macro is a local redefinition of A yey =. service ** 
iee macro, and is necessary in order to make use of the d oon hal 
iee within the SMOUNT system service. Since both SDISMOU a Nive are hel 
ise protected shareable images, ie Conner pose outbound references, th the oe 
lee DISMOU code must be amr Luged nto th Pag’ MOUNT code at Link The ee 
te* SMOUNT service then calls SDISMOU as if it were a normal rout ine, instead ** 
tee of going through the SDISMOU service dispatcher. re 
A cnatibbanieiddieahianlinnbnnmniabenaéinisiamimaiiaisasanimiaibiontnaihaneendaaiet 
i eeeeeeeereereeeenereeeneeeeeeeteeerereeeereeerereneeeeereneentenereeeeereneeeer 


' 
$D1SMOU 


se 
$2 SF 
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. 
3 
| 

1 

! 

Dismount Volume 

SDISMOU devnam ,Cflags] 

: devnam = address of device name string descriptor 

. flags = senbit status mask selecting options for the dismount 

: he symbols for the flags are defined by the SDMTDEF 

H nn 

: Flag Meaning 

DMTSM_NOUNLOAD Do not unload the volume. 

; 

i 


DMTSM_UNIT Dismount the specified device, rather 
than the entire volume set. 


ittattettes 


MAMI 


38 
Ry 
if 
645 
+h, 
0648 
5 

$ 
§ 


UNDECLARE %QUOTE $DISMOU; 
sachet hati SDISMOU (DEVNAM=0,FLAGS=0) = 


EXTERNAL ROUTINE SYSSDISMOU : BLISS +) nai -MODE (GENERAL); 
RERNEL_ CALL (SYSSDISMOU, DEVNAM, FLAGS) 


Oe dd dd 


'¢ 
1 


; Own storage for general use in this module. 
ie 


LITERAL 
ROOTVOL_NAMLEN = 64; ! Maximum Length of a device name 


EXTERNAL LITERAL 
CJFS_DEVEXI; 


ee ee me me a ee ee ee ed ed ed dd ed dd od = 
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AAS_DATA_BEGIN : VECTOR (0), ! Mark start of data area 
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1$-Se -1984 31:48 VAX-11 Bliss-32 V4.0-742 Page 4 

122808= 138s $3 45 4 D1SKSVMSMASTER: MOUNT . SRCJRUJMAN.B32; 1" (2) 
DISMOUNT COUNT LONG ! Count of volumes that were dismounted 
ODS2_VOLOME : BITVECTOR (DEVMAX, ! Indicates volume supports ODS-2 file struc 
ROOT PRESENT : BITVECTOR (COEVMAX), ! Indicates presence of root volume for ag 
RUJRAL PRESENT : BITVECTOR COEVMAX ! Indicates presence of RUJ file on a given 
ROOTVOL_ : BBLOCK (OSCSK_S_BLNI ! Root volume device name descriptor 
ROOTVOL _BUF : BBLOCK [ROOTVOL- MLENI, ! Buffer for root volume device name 
ROOTVOL_INDEX : VECTOR [DEVMAX, BYTE, uss ened. ! Each entry contians index+1 of root volume 
vou set RVN : VECTOR ne BYTE, UNSIGNEDJ, ! Vector of Relative Volume Numbers 
27$_DATA_END : VECTOR ; ! Mark end of data area 
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16-Sep-1984 01:31:48 — VAX=11 BLiss-32_ v4.0-742 p 
1-88-1984 12:45:34 DASKSVMSMASTERSCMOUNT. SRCIRUJMAN.B3251°° (3) 


cq 
> 
z 


v04-000 


ROUTINE ACCESS_JOURNAL (DEVICE_NAME) = 


144 
' 


; FUNCTIONAL DESCRIPTION: 


SILESSESES 
SSSSSSsseses 
wr—o NOULWw 


STATUS; 


DEVICE_NAME : REF BBLOCK, 
RUJRNL~FILE : BBLOCK; 


RUJRNL _F AB : SFAB (FOP=UFO); 


ad et Bt 


woo 
COON 


d a File Attributes Block (FAB) and determine 
here is a journal file on volume by attempting 


3; «(164 1 

3 193 : 

; 183 1 

: 18 : 

: 19 ee This routine will attempt to access the Recovery Unit (RU) journal 
3 a : H file on a given volume. 

: 138 1 ! CALLING SEQUENCE: 

: if oF : ACCESS_JOURNAL (ARG1) 

; 176 705 1! INPUT PARAMETERS: 

3 vr 878 : ARG1: address of a device name descriptor 
3; 179 0708 1 ! IMPLICIT INPUTS: 

; 180 70° 1! NONE 

; «6181 0710 1! 

3 ise 0711 1 =! OUTPUT PARAMETERS: 

; «(18 fat 1! NONE 

3; «(186 14 1! 

; «6185 714 1°! IMPLICIT OUTPUTS: 

; 186 tar . 3 NONE 

3; «187 rig 1! 

: 185 RE ER ees Rae d back by SOPEN 
; ! atus code passed back by 

; 196 0719 1! 

3; 6191 0720 1 ! SIDE EFFECTS: 

; 136 0721 1! None. 

; 07 § 1! 

: 194 07 1 !=- 

3; «6195 0724 1 

3; 196 0725 BEGIN 

3 197 0726 

; 198 of 7 ! 

: 199 728 ' Allocate plits in the SCODE$ psect to avoid truncation error when 
: 200 0729 ! Linking mountshr. 

; 201 0730 ! 

3 4 0731 PSECT 

; 20 0 § PLIT = SCODES; 

: 204 0 

: 205 0734 BIND 

: 44 0735 RUJRNL_F ILE = DESCRIPTOR (‘CSYSJNLJRUJNL.RUJ;1"); 
; 208 

3; 209 

3 0 

: 3 

: 4 

: 5 
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JMAN 16-Sep-1984 01:31 VAX-11 Bliss-32 V4.0-742 Page 6 
you-000 1ereea 88s TSize ge eee GAAS tea hGatT Seconusman.e3s2rte” c3$ 
; 1 750 ' to open it. 
; $e 751 3 
3 deh 7 § RUJRNL_FABLFABSB_DNS] = .DEVICE_NAMECDSC$W_LENGTH); 
3 2e5 4 RUJRNL-FABCFABSL-DNA] = .DEVICE-NAMELDSCSA_POINTERI; 
; $ 755 @ RUJRNL_FABCFABSB_FNS) = .RUJRNL_FILECDSCSW-LENGTHJ; 
: ger f $ ¢ RUJRNLFABLFABSL_FNAI = .RUJRNL-FILE DSCSA~POINTERI; 
; , O5e6 IF (STATUS = SOPEN (FAB = RUJRNL_FAB)) !' Attempt to open the file 
: ; Ore} SDASSGN (CHAN = .RUJRNL_FABCFABSL_STV)); ! Deassign channel to close file 
: 762 ' 
: 0768 ! If the status was RMS$_DNR, it indicates that the journal file 
3 = 0764 ! was present, but could not be accessed, as it or the directory 
3 0765 ! describing it were spread across one or more disks and at least 
$s esr o768 ! one of those disks is not mounted. Convert the RMS$_DNR to success 
; $5 143 to indicate that the journal file is present. 
> 240 0769 2 IF .STATUS EQL RMS$_DNR 
3 41 0770 TH 
3 “g 0771 STATUS = 1; 
3 4 1464 
3 sie 077 RETURN .STATUS 
; 245 0774 
; 246 0775 1 END; 
-TITLE RUJMAN 
-IDENT \vV04-000\ 
-PSECT $CODES$,NOWRT,2 
52 2€ 4C GE 4A 55 52 5D 4C 4E 4A 53 59 53 5B 00000 P.AAB: .ASCII \CSYSUJNLIRUJNL.RUJ;1\ g 
31 38 4A 55 Q000F 3 
00013 -BLKB 1 
00000013 00014 P.AAA: .LONG 19 § 
00000000' 00018 ADDRESS P.AAB 3 
-PSECT SOWNS,NOEXE,2 
00000 AAS_DATA_BEGIN: ‘ 
00000 DISMOUNT_COUNT ‘ 
00004 ODS2_VOLUME : 
-BLKB 2 
00006 -BLKB 2 
00008 ROOT_PRESENT: 
-BLKB § 
0000A -BLKB 
O000C RUJRNL_PRESENT: 
-BLKB § 
60008 -BLKB 
0010 ROOTVOL_DSC: . 


s LK 
00018 ROOTVOL_BUF : 


v0 
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JAN 18-Sep-1986 01:31:48 VAX=11 BLiss=32 
yO.n000 17n8ee- 188s Pbizeise | Need bles 


V4.0-742 ° 7 
R:CMOUNT.SRCIRUJMAN.B32:1>" (3) 


me 


-BLKB 64 
90058 ROOTVOL_INDEX: 

BL 16 | 
00068 VOLSET_RVN: er 


BL 
00078 Z2$_DATA_END: 


RUJRNL_FILE= P.AAA 
-EXTRN CJF$_DEVEXI, SYSSOPEN 
SEXTRN SYSSDASSGN 
.PSECT SCODES,NOWRT,2 


Q00C 00000 ACCESS_JOURNAL : 
- WORD 


. 0 3 
03 00078 RUJRNL FAB: ‘ ; 
50 90 79 BYTE 80 : j3 
$500 ooore “TONG 131072 : 
i ae : : 
0000000 00084 “LONG 0 : ; 
00000000 00088 “LONG 60 : ; 
0000 0008¢ “WORU «OO : ; 
02 O08E “BYTE 2 : : 
00 O008F BYTE : : ; 
00000000 00090 LONG : ; 
00 00094 “BYTE 0 : ; 
00 00095 “BYTE 0 : ; 
00 00096 “BYTE 0 : ; 
02 00097 “BYTE 2 : ; 
00000000 00098 LONG 0 : ; 
90000000 0009¢ “LONG 0 : : 
0000000 000a0 “LONG 0 : 3 
00000000 O00A4 “LONG §60 : : 
00000000 000A8 LONG 0 : ; 
00 SOOAC YTE 0 : 3 
00 000AD BYTE 0 : | : 
0000 OO0AE WORD 0 : : 
00000000 00080 "LONG 0 : ; 
0000 00084 ORD 0 : : 
00 00086 “BYTE 0 : ; 
00 00087 YTE QO : 3 
00000000 00088 “LONG 60 : : 
00000000 000BC¢ “LONG 0 : : 
0000 000C0 “WORD 0 : 3 
00 900¢¢ “BYTE 0 : : 
000¢ “BYTE 0 : 3 
00000000 000¢4 “LONG 0 : ; 
Save R2,R3 3 0493 g 

53 0000' CF 9 90002 MOVAB RUJRNL_FAB+53, R3 : 

0 04 AC D 900 MOVL DEVIC E, R : 0753 : 

é 60 0008 MOVB (RO), RUJRNL_FAB+S3 : : 
fB.C‘édA 04 AO 00 000 MOVL  4(ROS, RUJRNC_FAB+48 > 0754 ; 
FFA E2 AF 9 01 MOVE RUJRNL_FILE, RUJRNL FAB+52 : 0755 : 
ia El AF p 001 MOVL § RUJRNL“FILE+4, RUJRAL_FAB+44 : 0756 3 
(B AS 9F 0001D PUSHAB RUJRNL~FAB : 0758 ; 
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RUJMAN 16-Sep-1984 01:31:48  VAX=11 Bliss-32 v4.0-742 8 
v04 14-Sep-1984 12:45:34  DISKSVMSMASTER: CMOUNT. SRCJRUJMAN. B32. 1% (3) 
000000006 9 1 FB 000 9 CALLS #1, SYSSOPEN ; 
08 MOVL RO. STATUS : 
E A BLBC TU ; 
D7 AS OD D PUSHL RUIRNL FAB+12 + 0760 
990090006 00 o1 FB 00 9 CALLS SYSSDASSGN : 
01 F ; D| 0 1$ CMBL srATOS: #989 , + 0769 
52 0 6 tf MOVL #1, STATUS + 0771 
2 Bd 04 2$ MOVL STATUS, RO + 0773 
4 00046 RET : 0775 
; Routine Size: 71 bytes, Routine Base: $CODE$ + OIC 
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75 
76 
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138 93:33:48 DISKSVMSMASTER=:CMOUNT. SRCIRUJMAN.B32: 1" (4) 


GLOBAL ROUTINE ACTIVATE_JOURNAL = 
lee 
i 

FUNCTIONAL DESCRIPTION: 


This routine will do the BATS ONARE RUJ operation for 
each device Listed in the YS_NAME descriptor vector. 


i 

i 

i 

i 

i 

i 

i 

ACTIVATE JOURNAL () 

i INPUT PARAMETERS: 

NONE 

; SmPLICHT INPUTS: 

<see the EXTERNAL declaration> 

i OUTPUT PARAMETERS: 

NONE 

IMPLICIT Ey GurPunse 

i 

i ROUTINE VALUE: 

Status code passed back by RUJ routines. 

i SIDE precise 

The state of the volume may be changed Copending on the action of 
Yy 

y 

i 


the journal ting ACP. A serious error returned 
serv 


the journalling 
ce will mandate Slepmeatins pieces (or all) of the volume sets. 


| 
| 
CALLING SEQUENCE: 


BEGIN 
‘— LITERAL , 

ROOTVOL_NAMLEN = 64; ! Maximum Length of a device name 
‘EXTERNAL 
! AAS_DATA_BEGIN VECTOR (03, ! Mark start of data area 
! DISMOUNT- COUNT : LONG ' Count of volumes that were dismounted 
: ODS2_ VOL OME : BITVECTOR CDEVMAX), ! Indicates volume supports ODS-2 file struc 
: ROOT” PRESENT : BITVECTOR LDEVMAX), ! Indicates presence of root volume for a gi 
! RUJRAL_PRESENT =: BITVECTOR CDEVMAX), ! Indicates presence of RUJ file on a given 
; ROOT TVOE psc : BBLOCK COSCSK_S_BLNI ! Root volume device name descriptor 
! ROOTVOL_ BUF : BBLOCK CROOTVOL_NAMLEN? ' Buffer for root volume device name 
: ROOTVOL- INDEX : BBLOCK CDEVMAX, BYTE, MUNSIGNED), ! Each entry contians index+1 of root votume | 
! ys RVN : vec TOR Hie BYTE, UNSIGNED), ' Vector of Relative Volume Numbers 
: 22$_DATA_END : VECTO ! Mark end of data area 
+ EXTERNAL ROUT INE 

+n YZE_DEVLIST : NOVALUE ACDRESSING_MODE (GENERAL), ' Inspect the List of devices 
MOUNT_VOLSET : NOVALUE ADDRESSING_MODE (GENERAL); ! Dismount volumes if journalling doesn't vd 
EXTERNAL 


and contains a RUJ file, create a temporary RUJ to process the 
existing RUJ file, and delete the file when done. 


This pass is meant to process new members to a volume set that 
already contain user files, and might have an active RUJ file 
present on the volume. The volume must be in a consistent state 


Mann 
—COOnouw 


200000000 00 00 Co. 
@o0o 
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VAX-11 Bliss-32 V4.0-742 Page 10) 
~000 DISKSVMSMASTER: CMOUNT . SRCJRUJMAN.B32;1> a) 
; 5 3 MOUNT OPTIONS : BITVECTOR, ! Mount option flag bits > 
; 4 PHYS_COUNT : LONG ! # of descriptors in PHYS_NAME : 
; 5 PHY E : BBLOCKVECTOR CDEVMAX, DSCSK_S_BLNJ,  ! Descriptor of root volume name . 
: fe: STORED CONTEXT : BITVECTOR; ! Determines if tape or disk mount | : 
; 310 3 LITERAL | 3 
3 OUST) ALL VOLUMES = 1, ! Various and sundry mnemonics ; 
3 \¢ 40 VOLUM = 0, 3 
; 31 41 PERMANENT _RUJ = 1, ; 
; 314 ae TEMPORARY_RUJ = 0; ‘ 
; 315 84 3 
; 1$ 4 LOCAL : 
3 5 5 RUJRNL_EXISTS, ! Boolean : 
; 318 58 STATUS; 3 
; 319 bee 3 
3 0 848 : 
: 1 0849 } F 
3 ¢ 0850 ! If the user explicitly requested that Recovery Unit Journalling (RUJ) ; 
3 Z tte not be activated, return a success status immediately. : 
3 2 0858 !eeeJNL*® turn off RU journals : 
; 7 0855 MOUNT _OPTIONSCOPT_NOJRNL] = 1; !*®*JNL** ; 
3 8 0826 IF .MOUNT_OPTIONSCOPT_NOJRNLJ : 
; 9 085 THEN : 
; 0 +t RETURN 1; : 
3 $3 0859 3 
3 ¢ 0860 ‘ 3 
3; 35 0861 ! RUJ is only appropriate for disk volumes. If we are mounting a tape ‘ 
; $e Oaeg or a foreign disk, return a success status immediately. : 
; 336 0864 IF .STORED_CONTEXTCTAPE_MOUNT] 3 
; 337 0865 2 OR .MOUNT_OPTIONSCOPT_FOREIGN : 
3 $35 0866 THEN 3 
; 339 0867 RETURN 1; F 
; 340 0868 3 
: 341 0869 ’ 3 
; m4 0870 ! Inspect the List of devices that have been mounted, and record some ; 
; 0871 ! useful information. This is necessary because SMOUNT allows a great : 
; 4 087 ' deal of flexibility in the amount and type of disks volumes that may 3 
3 re et } be mounted. 3 
Py ‘ : 
; 347 0875 ANALYZE _DEVLIST (PHYS_NAMECO, DSC$W_LENGTH], .PHYS_COUNT); : 
; rk O87? '¢ : : 
; 350 878 ' Now that the volume/device data base has been created, process each : 
s 35) 0879 ' volume in the device list. Three passes are made through the List, : 
; 26 8 : ! and the ordering of the processing is important. The actions performed are: : 
: 354 § 1. For each ODS-2 volume (mounted on a device in the device List) that : 
3 is a member of a volume set, but not the root volume of a volume set, : 
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; 39 ; efore i can be a ful lef edged member of the volume set. A . 
3 9 ; ournalling failure at ghis point will cause the volume, but not ; 
; 3 he volume set, to be dismounted. ° 
; 94 : 2. For each ODS-2 volume (mounted on a device in the device List) that ; 
; 95 : is @ root volume of a volume set, or not part of any yolume set ‘ 
; 38 : attempt to create a permanent RUJ on the volume if a Journal tile ‘ 
; 44 already exists, or if the user requested one be created. ‘ 
3 af 344 ; Volumes of this type are the most prevalent. A journalling failure : 
3 y : at this point will cause the entire volume set to be dismounted. ‘ 
3; 376 306 : 3. For each ODS-2 volume (mounted on a device in the device List) that : 
3; of 90 : Sa member of a volume set but not a root volume, attempt to restart ‘ 
3 78 Bee } a ‘‘frozen’’ recovery unit. ; 
; 378 2208 : This pass handles the case of a volume set that is mounted in stages. ; 
; 379 090 : An active RUJ on an imcomplete volume set might become ‘‘frozen’’ i ; 
; 380 0908 : data on aren ine volumes is needed to complete the Journ ing ; 
; 381 0909 ! operation. Note that if more pieces of the volume set are still ; 
; Hy 0910 ! not mounted, the RUJ may remain frozen. A journalling failure at : 
3; 0911 ' this point will cause the entire volume set to be dismounted. Note ; 
; rf: 831g that if the RUJ remains frozen, the volume set is not dismounted. : 
; 386 0914 ! Note that DISMOUNT_VOLSET will update the local device List database to reflect ; 
3; ser 0915 ! the removal (dismounting) of volumes. ; 
; 388 pate ! 3 
; 389 091 : : 
; 390 0918 ! of volumes to be mounted with a single invocation. For example, more than 3 
; 391 0919 ! one volume set can be mounted; ODS1 and ODS2 disks can be mounted together : 
; 8 0920 ' also. : 
: 0921 te : 
; 394 09 ¢ : 
3 OS 09 : : 
; 396 0924 ! Handle case 1 ; 
; 397 0925 : ; 
; 398 8 $ INCR J FROM 8 TO .PHYS_COUNT-1 DO ; 
; 399 9 IF .ODS2_VOLUMEC. : 
: 400 0928 AND .VOLSET_RVNC.JJ GTR 1 : 
: $33 +4 , AND oRUIRML PRESENTE.JJ ‘ 
; rf 44 1 IF NOT (STATUS = EXEC_CALL (CREATE_RUJ, PHYS_NAMEC.J, DSCSW_LENGTH], TEMPORARY_RUJ)) : 
; 0S 9 DISMOUNT_VOLSET (PHYS_NAME, .PHYS_COUNT, .J, ONE_VOLUME, .STATUS); : 
; 408 : ' Handle case 2. : 
; 4609 : : 
; 410 9 INCR J FROM 0 TO .PHYS a dO : 
3; 6411 IF .ODS VOLUREC J : 
; tig 0 AND .VOLSET_RVNC.JJ LEQ 1 : 
3 ht ed AND (.RUJRNC_PRESENTC.J] OR .MOUNT_OPTIONSCOPT_NEWJRNL J) : 
3 1? 348 IF NOT (STATUS = EXEC_CALL (CREATE_RUJ, PHYS_NAMEC.J, DSC$W_LENGTH], PERMANENT_RUJ)) : 
; <i ? DISMOUNT_VOLSET (PHYS_NAME, .PHYS_COUNT, .J, ALL_VOLUMES, .STATUS); : 


! 
! This Level of gee is necessary because SMOUNT will allow many types 
e 
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Se 
Se 
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' 

Handle case 3. 


iNCR J FROM 19, spurs ae -1 00 


1 -ODS2_ VOL ptf 
we ov »V VOLSET RYNE -JJ GIR 1 


OT ROOT PRESENTC. JJ 
IF NOT (STATUS = EXEC_CALL (RCPLRESTART, PHYS_NAMEC.J, DSCSW_LENGTH])) 
DISMOUNT_VOLSET (PHYS_NAME, .PHYS_COUNT, .J, ALL_VOLUMES, .STATUS); 


— 


NOUS WI—O”O 


Wnt — 


Compare the number of volumes dismounted appinse the ori ae number 


SERRE ERE E REE EEE PES 


' 
i 
i of volumes in the device List. There are three posibili 
$ 1. No volumes have been dismounted - return SS$_NORMAL 
5 ! ° ioe but not all volumes have been dismounted - return MOUNS_DISMPART 
- ALL volumes have been dismounted - return MOUNS_DISMAL 
8 if .DISMOUNT_COUNT LEQ 0 
rr | RETURN SS$_NORMAL 
rr IF .DiSMOUNT_COUNT LSS .PHYS_COUNT 
ree RETURN MOUNS_DISMPART 
44 RETURN MOUNS_DISMAL 
44 09 
448 0976 END; 
~EXTRN mag yr les fe PHYS COUNT 
-EXTRN PHYS_RAM STORED_ CONTEXT 
EXTRN Syss STME XE 
07FC 00000 ~ENTRY AB RO Ri JOURNAL, cave R2,R3,R4,R5,R6,R7,.- =; 0776 
SA 0000v CF 9E 0000 MOVAB haunt 06119 VOL SET. R10 : 
9 0000 000G 00 9€E 0000 MOVAB $+6, RI 3 
: 00000006 9F 9E S005 MOVAB aS By SSeM $*8 : 
. F 9€ 0001 MOVAB O c.f 3 
28 0000 G 8 SE BoA MOVAB HY : 
6 1 HOVAB PHYS-COUNT, R5 ; 
69 F 0028 BISB2 #1287 MOUNT _GPTIONS+6 > 0855 
3 4 Cc BGEQ $ 3; 0856 
OODA 31 000 ‘ 1$: BRW 0$ 3 
F6 000000006 8 cB 0031 2$: BLBS STORED_CONTEXT 3 0864 
FI FB OA E BRS , MOONT OFT IONS*1, 1$ > 0865 
DD D PUSHL PAYS COUNT. ; 0875 
6 DD F PUSHL 3 
0000V F ¢ fe 41 CALLS #2, Anne VEE PEM IST : 
3 D re MOVL PHYS_COUNT, R 3; 0926 
2 1 cf 4 MNEGL ‘5 : 
3 1 ; 4C RB 4 3 
2F 67 £1 4E 3$: BC J, ODS2_VOLUME, 4$ ; 0927 


H 13 
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yO~000 ates rae am Vet Ot co et a 
01 64 a 91 3 CHEB VOLSET_RVNCJJ, #1 ; 0928 
23 08 A7 ey 9 BBC J, RUJRNL_PRESENT, 4$ 3 99 9 
06} OF 6 PUSHAQ PHYS_NAMELJJ : 
Q DD PUSHL #2 : 
—E oD PUSHL : 
0000v CF 9F PUSHAB CREATE_RUJ : 
a 5 F 6B CALLS #5, SYSSCMEXEC : 
4 0 09 oF OVL RO, STATUS : 
ih) 4 € BLBS STATUS, 4 : 
4 0D 0 74 PUSHL STATUS + 0933 
D4 26 CLRL.  =(SP) : 
5 DD 0007 PUSHL J : 
: DD sure PUSHL PHYS_COUNT : 
DD 0007C PUSHL : 
6A 3 F 7E CALLS #5, DISMOUNT_VOLSET : 
C9 2 3 008] 4$ AOBLSS R3, J + 0927 
5 5 pO 00085 MOVL PHYS_COUNT, R3 : 0938 
s Shee me gs : 
33 67 3 a itt 5$ BBC J, ODS2 VOLUME, 7$ + 0939 
01 64 A74 4 90091 CPB YOLSET_RVNCJI, rh ; 0940 
04 08 A? s EO $b98 BBS J, RUJRNL PRESENT 6$ + 0941 
” oa 0909p 6$ BUS MOUNT OPTIONS ts 943} 
6642 uF 000A3 PUSHAQ PHYS_NAMELJJ : 
Be ae : 
0000v CF 9OF SooA PUSHAB CREATE_RUJ : 
68 05 FB OOOAE CALLS #5, SYSSCMEXEC F 
54 50 DO 00081 MOVL RO, STATUS ; 
ih) 54 «8 00084 BLBS STATUS, 7$ ; 
54 DD 00087 PUSHL STATUS > 0945 
8) Bb O00BB pum 
A Bie ae frcue 7 
6A 3 FB 000C1 CALLS #5, DISMOUNT_VOLSET ; 
cS 2 3 00C4 7$: AOBLSS R3. J : 0939 
7 65 00 000¢8 MOVL PHYS COUNT, R3 : 0950 
52 i ce ance MNEGL “i, J ; 

D 7 1 8$: BBC J, ODS2_VOLUME, 9$ : 0951 
. $7 64 ares 5 3 CPB OLSET_RVNCJJ, #1 ; 0952 
21 04 A? 53 £0 D BBS J, ROOT PRESENT, 9$ > 0953 

6642 i : PUSHAG PHYS _NAMELJJ ; 0955 
g BD E PUSHL SP : 
0000v CF 9F OO0E PUSHAB RCP_RESTART : 
R 8 EB CALLS #4, ~SYSSCMEXEC : 
5 0 09 EF MOVL RO. STATUS ; 
D 4 € F BLBS STATUS, 9$ ; 
4 DD 000F4 PUSHL STATUS : 0957 
01 DD 000F6 PUSHL # : 


; Routine Size: 292 bytes, Routine Base: S$CODE$ + 0063 
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12-Sep-1984 12:45:34 DISKSVMSMASTERSCMOUNT -SRCIRUJMAN.B32<3>° (4) 
52 DD g00F PUSHL J ; ; 
DD OOOFA PUSHL  PHYS_COUNT : ; 
DD OOOFC PUSHL R : : 
A ; FE CALLS #5, DISMOUNT_VOLSET : : 
<8 : F2 00101 9$: AOBLSS R3, J, 8$ 0951 : 
FC =A? «DO 001 MOVL D1 SMOUNT _COUNT, RO : 0966 ; 
04 14 001 BGTR 118 : : 
50 1 pO 00108 108: MOvL AT, RO ; 0970 : 
4 0010€ RET : : 
65 01 OO10F 11$:  CMPL = RO, _PHYS_COUNT : ; 
18 112 BGEQ = § : : 
50 00729050 8F pO 00114 MOVL #7508048, RO ; 0972 : 
50 0072822¢ BF pO OOIIC 128: — MOVL «#7504428, RO 3 097% : 
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ed ed ed aed ed ed ed 
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ROUTINE ANALYZE_DEVLIST (DEVNAM_LIST, leat : 


14 
! 


(if 
o the 


CALLING SEQUENCE: 


INPUT A he 


IMPLICIT INPUTS: 

i OUTPUT PARAMETERS: 

i NONE 

i IMPLICIT OUTPUTS: 

i NONE 

i ROUTINE VALUE: 
NONE 

i SIDE EFFECTS: 

i NONE 


BEGIN 


ee LITERAL 
ROOTVOL NAMLEN 


, EXTERNAL 


‘elenee ROUTINE 


ACCESS_JOURNAL ; 


i FUNCTIONAL DESCRIPTION: 


For each Gogeet in the physical device name 
o the file structure level 
° the name of the root volume in the volume 
resent in the device ist record the. Sndex) 
elative Volume Number (RVN) 
o whether or not the root volume is in the List 
o whether of not a volume has a RUJ file 


ANALYZE _DEVLIST (ARG1, 


: address of a vector of device name descriptors 
: number of device name descriptors in the 


<see the EXTERNAL declaration> 


a VOL" NAML EN} 
K DEVRAK, “BYTES 


VAX-11 Bliss-32_ V4.0-742 e ds 
DISKSVMSMASTER: CMOUNT. SRCJRUJMAN. 832; * ) 


or ObS-25 vector, determine 


Start of ANALYZE_DEVLIST 
Maximum Length of a device name 


Mark start of data area 

Count of volumes that were dismounted 
Indicates volume supports O0DS-2 tite struc 
Indicates presence of root volume for a gi 
Indicates presence of RUJ file on a given 
Root volume device name descriptor 

Buffer for root volume device name 

Each entry contians index+! of root volume 
Vector of Relative Volume Numbers 

Mark end of data area 


Determine if RUJ file present on a volume 


FUSS 
Wn 


lt elt el el cls el el 
SUS PUM OOOO AP UNM ODe SF 


uw 


wr 


SRRRRAARARARAPR ER ERE REE Rogge 


WN $9 DONO UENO DOONAN WO 0 
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Ezz 


OOOCCoCooooooo 
>Re PN 
NOUSWN oO 


Mun 


Pele) 


ee LLL LL LL ee ee ee ee ee en ee ee ee ee ee ee ee es 
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LOCAL 
; ! Loop counter 
MAP 
DEVNAM_LIST : REF BBLOCKVECTOR CDEVMAX, DSC$K_S_BLNI; 
OWN 
ACP_TYPE : LONG ' Volume ACP type 
ROOTNAME BUF : BBLOCK CROOTVOL_NAMLEN], i Root volume device name buffer 
VOLUME_NOMBER : LONG, ' Relative volume number 
DVI_LIST : BBLOCK (10*4) ! $GETDVI item List 
INITIAL (¢ 
WORD (64) ! ITEM = Root volume device name 
WORD (DVI$_ROOTDEVNAM) , 
LONG (0), ~ ! Filled in at run time 
LONG (0), ! Filled in at run time 
WORD (4) $ ITEM = Relative Volume Number 
WORD (DV{$_VOLNUMBER), 
LONG (VOLUME NUMBER), 
LONG (0), 
WORD (4) ! ITEM = ACP type 
WORD (DVIS S$ ACPTYPED 
LONG (ACP_TYPE), 
LONG (0),~ 
LONG (0) ! List terminator 


' 
Initialize the data area. 


CHSFILL (0, (22$_DATA_END-AAS_DATA_BEGIN), AAS_DATA_BEGIN); 


For each device Listed, determine 

e file structure level (ODS-1 Aad ODS-2) 

ts Relative Volume Number (RVN) 

f it has a journal file 

the device name the root volume is mounted o 

o if the root volume was mounted by this tevoration of SMOUNT 


INCR J FROM 0 TO .LIST_LENGTH-1 DO 
BEGIN 


coooo 
ir? 
zs 


' 
i 
i 
i 
i 
i 
i 
i 
I 


Get the RVN and root volume device name. 
ROOTVOL He 8 Teer = ROOT Ve. _BUF ; 
Hy 


DVI 
v1 cLst 5 Pitie spsctoscsu LENGTH); 

$GET J, W_LENGTH], ITMLST=DVI_LIST); 
vOrser. TWN vain : » VOLUME NU 


i If the volume pupports the ODS-2 file structure, note it, and 
' determine if the root volume for this volume set was mounted in 
i this tn Re A of SMOUNT. Note that if the RVN is LEQ 1, then 


se 
SeErsee BF 
2223 


w 
=NINIWS SUNN BEEPS EPPS PPM SEEPS 


LS 


oO 
co 


900 00 00 00 00 00 00 00 00 ~d ~d ~d <<) dd 
Wt br tty tet her P= Si Se Pe 
SSSSIZIIE 


COOooooCooooo 


AL Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab db db Ab ab A 
MEWN —OODONAOUES WN OC BNAUFS WN —O 
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13-88-1382 3:31:98 DISKSVMSMAS TER: CMOUNT . SRCIRUJMAN.B32: 1° (5) 
: this volume is the root volume. 
if .ACP_TYPE EQL DVISC_ACP_F11V2 
THEN 


N 
ODS2_VOLUMEC.J] =_1; ! Note that this volume supports ODS-2. 
RUJRAL_ PRESENT “4 = ACCESS_JOURNAL (DEVNAM_LISTC.J, DSCSW_LENGTHJ); 


regrorse | AWN LEQ 1 
BEGIN ! This is the volume is its own root 
ROOT _PRESENTC.J)] = 1; ! Note the the root volume is present in the 
ROOTOL_INDEXC.J3 = .J +1; ! Note the index of the root volume (biased 


Check the root volume device name for this device against those 
in the supplied list. If no match, it means that this volume is 
an addition to an already mounted volume set. 


eee ee ee 


= 0; 
HILE NOT .ROOT_PRESENTC. 


J TLENGTH-1) DO 
IF CHSEQL ~(.DEVNAM_L TA 
EVNAM~L 


TERS, 


THEN 


BEGIN 
ROOT PRESENTC.J]_= 1; ! Note the the root volume is present in the 
ROOTVOL_INDEXC.J] = .1 + 1; ! Note the index of the root volume (biased 


EN 
ELSE 
I= .] +1; 


! End of ANALYZE_DEVLIST 


-PSECT $OWNS,NOEXE,2 
000C8 ACP_TYPE: 


-BLKB 4 

000cc ROOTNAME BUF : Ne 

0010C eae ‘ 

0040 00110 DVI_LIST: 

eWORD 64 } 
033 0112 «WORD 50 : 
6000 00 OBE -LONG 0 3 
00000000 118 -LONG 0 : 
4 OO11C 5 4 : 
\F eWORD 46 3 
$008 , 1 ADDRESS VOLUME _NUMBER 3 
0 124 -LONG 0 3 
004 128 -WORD 4 : 


M13 
RUJMAN 16-Sep-1984 01:31: VAX-11 Bliss-32 V4.0-742 1 
vO4-000 12-80 8= 1382 93:31:48 DISKSVMSMAS TER: CMOUNT . SRC JRUJMAN. B32. 79 eB 
04 12A «WORD 66 ; 
$008 00° f ADDRESS ACP_TYPE : 
$000 0134 . LONG : 
.EXTRN SYSS$GETDVI 
-PSECT $CODE$,NOWRT,2 
si oeas saith R2,R3, Rs, RS, R6 0977 
° Save ; 
56 0000' CF 9E MOV ROOT_PRESEN : 
0078 8F 00 6E i” 60 3f O00? MOVC FO. TSP), WO. #20, AAS_DATA_BEGIN : 1066 
54 1 CE a019 MNEGL #1, J + 1084 
0089 1 0001 BRW 8$ : 
0c 10 Ab 9E 00016 1$ MOVAB ROOTVOL_BUF, ROOTVOL_DSC+4 + 1081 
010¢ = 10 A6 9E 00018 MOVAB ROOTVOL-BUF., DVI_LIST+4 + 1082 
0110 08 A6 9E 00021 MOVAB ROOTVOL-DSC, DVI “Listes + 1083 
7E 7C€ 00027 CLRQ = =(SP) + 1084 
7E 7C€ 00029 CLROQ : 
0108 C6 9F 0002B PUSHAB DVI_LIST : 
04 BC44 7F O002F PUSHAQ @DEQNAM_LISTCJJ : 
7E 7C 00033 CLRQ = =(SP) : 
000000006 00 08 FB 00035 CALLS #8, SYSS$GETDVI : 
60 A644 0104 C6 90 0005¢ MOVE = VOLUME NUMBER. VOLSET_RVNLJJ + 1085 
02 00C0 £6 D1 0004 CMPL ACP_TYPE, #2 : 1093 
5 if 00048 BNE 8s ; 
00 FC AG 54 E 0004A BBSS ODS2_VOLUME, 2$ + 1096 
04 BC44 7F OOO4F 2$ PUSHAQ asevnah AMPLISTC J : 1097 
FE3D CF or FB 90055 CALLS ACCESS ~ JOUR : 
04 Ab 01 54 0 FO 00058 INSV RYAN PRESENT ; 
01 60 A644 91 0005 CMPB RO: AVC + 1098 
OA 1A 0006 BGTRU 4 : 
00 66 54 Ee 0006 pass J ROOT PRESENT + 1101 
50 A644 54 01 81 00069 3s: ADDB3 «= #1, J, ROOTVOL_ inbeXty3 + 1102 
55 04 0006 4$: CLRL + 1109 
2A 66 54 «£0 00 1 5$: BBS ROOT_PRESENT, 8$ + 1110 
50 08 Ac oi C3 00075 SUBL3 *, ahi T- LENGTH, RO ; 
50 5 D1 0007A CMPL : 
20 14 0007D BGTR ; 
50 04 BC45 7E 0007F MOVAQ a@DEVNAM_LIS stLl 5] : 1111 
08 Ab 00 04 B80 60 2D 00084 CMPCS (RO), @&(RO), 1. RO OOTVOL _DSC, - ; 
OC 86 00 aRoof VOL. Beets : 
¢ 1 08D BNEQ ; : 
00 $6 4 ; 09 ¢ BBSS ROOT_PRESENT : 1118 
50 A644 5 01 81 0 93 6$: ADDB3 H. 1, ROOTVOL_ ingexy3 : 1119 
D6 11 00099 BRB : 1111 
55 06 00098 7$: INCL > 1122 
D2 11 0009D BRB 4 : 1111 
01 54 08 AC Fe OO9F 8$: AOBLSS LIST_LENGTH, J, 9$ : 1076 
9 OOA4 RET > 1126 
FF6E 31 OOOAS 9S: BRW 1$ + 1076 


3; Routine Size: 168 bytes, Routine Base: $CODE$ + 0187 


<z 
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$ $0) 1} 7 } ROUTINE CREATE_RUJ (DEVICE_NAME, PERMANENT_RUJ) = 

; 60 11 : 1 !++ 

; 604 11 1! 

$ oR? 1 1 ! } FUNCTIONAL DESCRIPTION: 

3 $09 11 : 1! Create a JSB and call the SCREJNL system service to create a 

; 608 1134 1! RUJ on a specified device. The longevity of the RUJ is also 

; 609 1138 1! specified. 

; 610 11 § 7 § 

> 611 11 1 ! CALLING SEQUENCE: 

3 ol¢ 11 4 1! CREATE_RUJ (ARG1, ARG2) 

3; 6} 11 1! 

> 614 1140 1 ! INPUT PARAMETERS: 

; 615 1141 1! ARG1 : address of a device name descriptor 

: oig 1146 ; ARG2 : if O then create a temporary RUJ, otherwise create a permanent RUJ. 

; 618 1144 1 ! IMPLICIT INPUTS: 

; 619 1145 1! NONE 

; 620 1146 1! 

; 621 1147 1 ! OUTPUT PARAMETERS: 

; 6 ; 1148 1! NONE 

; 6 1149 1! 

; 624 1150 1 ! IMPLICIT OUTPUTS: 

; os? 1151 1! NONE 

; 626 1136 1! 

3; 627 1153 1 ! ROUTINE VALUE: . 

: 628 1154 1! Status code passed back by RUJ routines. 

; 668 37 33 

; 630 1156 1 ! SIDE EFFECTS: . 

s 651 1157 1! The state of the volume may be changed depending on the action of 

; 632 1158 1! the journalling ACP. E 

3 6655 1159 1! Success messages are SIGNALED, errors are handled outside of this 

3: 634 11640 1! routine. 

; 635 1161 1! 

> 636 1186 1 !e< 

3; 637 1163 1 

3 638 1198 2 BEGIN ! Start of CREATE_JOURNAL 

; 640 1106 EXTERNAL : : 

; 641 116 JRNL_EXTEND, ! RUJ default file extension size 

: O66 1168 JRNL_QUOTA, ! RUJ byte quota per recovery unit | 
; oh 1199 sree abs teen size : maneueey es oe a gantttat size 
: ‘ : maximum record size 

3 oe? at 4 MOUNT_OPTIONS : BITVECTOR; ! Option flags 

3 g9 1193 ‘EXTERNAL ROUTINE 2 ; 
; 648 1174 : LUME NAME : ADDRESSING_MODE (GENERAL), ! Return volume name for a given device 
; 4 112? ! INTERCEPT_SIGNAL: ADDRESSING_MODE (GENERAL); ! Condition handler 

3; 651 1177 LOCAL 

3 636 1178 JRNL_CHANNEL, ! Channel to volume 

3; & 117 STATOS : BBLOCK (4), 

; $38 1189 VOLUME _NAME : REF BBLOCK; ! Volume name descriptor 

i 656 1188 OWN | 
; 65 11 JSB : BBLOCK CJS8$C_LENGTH); ! Journal State Block 
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} 
| 
| 
| 
| 
| 
| 
| 


Enable a condition handler to field and print signalled messages. 


ENABLE INTERCEPT_SIGNAL; 
! 
Build the JSB in OWN storage (stack space is at a premium). 


JRNL_CHANNE 
CHSETLL (0, 


- 
“F 
F 


= 
” 
@ 
cw 
nnn 
@ 
e 
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Q 
id _BU 
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Set RUJ creation flags 


cjiPERMANENT RUJ 
JSBCJSB$SV_CIF] = .MOUNT_OPTIONSCOPT_NEWJRNL] 


TH eee eee OCC OOOO 
z= 


a 
uw” 
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BEGIN 
JSBCJSBSV_TMPJNL 
JSBCJSBSV~TMPF IL 


1; 
V3 


Activate the journal (this is a synchronous operation). 
Parameters that are defaulted are flaged with (*). 


The SCREJNL code is loadable, and not necessarily present in 
TATUS = SCREJNL — papain 


Prwrecacacacre 
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1 
Device already exists should be changed to a success code 
iF .STATUS EQL CJFS$_DEVEXI 


Set the journal type 

Set RUJ initial size 

Set RUJ extend size 

Set RUJ max record size 

Set RUJ process byte quota 

Use 1 block buffers in driver 

Only one RUJ on volume 

Specify device class 

Specify journal access mode 
devnam descriptor address | 


| 

| 

| 

Initialize the JSB | 
| 

| 

| 


default exparation date 


Ignorant Bliss STILL does not handle quad 


| 
} 
i 
; 
| 
| 
| 


the system. 


Channel returned by the service | 
JSB address 
Access mode for channel 


Protection for channel (*) 
Addr of facility code (*) 
gpy sen flags *) 
Object UIC (*) 
Session ID (*) 
Internal I0SB (*) 


14 
6 1984 01:31:48 VAX-11 Bliss-32 V4.0-742 1 
4-S 4 9 Magia DISKSVMSMASTER: CMOUNT. SRC JRUJMAN. 832: 79 maray 


s 71s 1241 EN 
: £8 : tg STATUSCSTSS$SV_SEVERITY] = STSSK_SUCCESS; 
: 718 1264 i pgees ten the journal channel. The return status is not interest ing. 
; 719 1245 ! If the RUJ that was created was a temporary pourne . deassigning the 
: 4 : ré channel will get rid of the journal and the le. 
: 7 : 1248 © SDEASJNL (CHAN = .JRNL_CHANNEL); 
ao Be 
: 725 1 34 i If the status code returned by SCREJNL indicates an ‘“‘informational’’ message, 
; 7 $ 1 26 i attempt to inform the user of the event. ALL other status values are handled 
st # 125 i outside of this routine. The status code is signalled, and a condition 
: f ; 55 handler prints the message. 
: 730 1296 if .STATUSCSTS$V_SEVERITY] EQL STSSK_INFO 
; 731 125 THEN 
3 reg 1258 2 
; 73 1259 VOLUME NAME = GET VOLUME — -DEVICE_NAME); 
3 134 1260 ERR. MESSAGE (MOUNS_VOLSTATUS, 1, .VOLUME_NAME, .STATUS); 
: 736 126¢ : 
3; 737 126 RETURN .STATUS 
; 738 1264 
3; 739 1265 END; ! End of CREATE_JOURNAL 
-PSECT SOWNS,NOEXE,2 
00138 JSB: -BLKB 80 
~EXTRN og EXTEND, JRNL_QUOTA 
~EXTRN L~SIZE, JRNL_RECORD SIZE 
-EXTRN CUSTREINC. CJFSDEASJNE 
-PSECT S$CODES,NOWRT,2 
007C 00000 CREATE_RUJ: 
WORD Save R2,R3,R4,R5,R6 ; 1127 
56 0000" CF 9E 0000 MOVAB JSB, R6 3 
6D 0083 cr DE 0000 MOVAL 5$, (FP) 3 1164 
E 04 0000C CLRL JRNL CHANNEL 3 1194 
0050 = &F 00 6E 0? 2c 0000 MOVCS #0, TSP), nO, #80, JSB ; 1195 
18 A6 900000006 0 D 00016 MOVL JRNL SIZE, JSB+24 : 1197 
1¢ 3 =6A6 4 006 00 B80 OOOIE MOVW L-EXTEND, JSB+28 3; 1198 
14 A6 8 tt BO 00026 MOVW Ihe “asin SIIE JSB+20 3; 1199 
20 a6 000000006 DO 00 MOVL § JRNL~QUOTA, ~JSB+32 : 1200 
1E Ab 1 8 : MOVW #1, JSB+ ; 1201 
A A6 1 A MOVB #1, JSB : 1202 
A Ab 0101 = 8F a MOV #57 Js +10 > 1196 
24 AG 3 44 MOVB : 1204 
a4 A6 04 85 B 48 MOVL Ob. vite ONARE, JSB+68 : 1205 
08 FF 8F 6E ¢ + C 0053 mMOVCS (SP), #1, #8, JSB+60 : 1206 
0c 8 AC €9 000 BLBC = PERMANENT_RUJ, 1$ : 1211 
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16-Sep-1984 01:31:48 VAX-11 Bliss-32 V4.0-742 2 

13-808- 138 93:33:48 D1 SKSVMSMASTER CMOUNT. SRCIJRUJMAN. B32, 79 © | 
2c Ab 01 03 000000006 90 if insv MOUNT. OPTIONS+7, #3, #1, JSB+44 : 1213) : 
2c AG 11 1$: BISB2 #17, JSB+44 t 1217 : 
7E re 69 28: CLRQ. = = (SP) : 1312 : 
7E 7C 00068 CLRQ = (SP) : ; 
7E 7¢€ 0006D CLRQ = = (SP) : ; 
7E D4 of CLRL = = (SP) : | ; 
56 DD | PUSHL F : 
20 AE OF 7 PUSHAB JRN L_ CHANNEL ; ; 
000000006 99 FB 00076 CALLS CGF SCREINL ; : 
DO 0007D MOVL +4 STATUS : F 
000000006 8F 52 (01 9080 CMPL yes #CJFS_DEVEXI + 1240 ; 
1 3 BNEQ ® : 
52 03 00 1 FO 00089 INSV of? #3, STATUS + 1242 : 
04 AE DD 0090 “ PUSHL NNEL oe ; 
000000006 00 05 FB 9009 CALLS ne ‘ty PSDEASUNL : : 
03 52 03 09 FD 009A CMP ZV #0, #3, STATUS, #3 : 1256 : 
06 ac DD S OORT PUSHL DEVIC NAME : 1259 ; 
0000v CF 01 FB ihe CALLS hackktgV9 VOLUME _NAME $ : 
05 BB 000A9 PUSHR > 1260 ; 
1 DD 000a8 PUSHL 1 : : 
0072A078 8F DD OOOAD PUSHL #7512187 : : 
000000006 00 04 FB 00085 CALLS #4, LIBSSIGNAL ; : 
50 2 0 BORA 4$: nov STATUS, RO F 1363 : 
0000 Bape 5$: «WORD Save nothing 3 1164 3 
7E D4 000C CLRL 0s =< SP) : F 
5E bb 900ce PUSHL : : 
7E 04 aC D 000C4 MOVQ. 4(AP), -(SP) : : 
0000v CF 0 FB 900¢8 CALLS #3, INTERCEPT_SIGNAL F : 
; Routine Size: 206 bytes, Routine Base: S$CODE$ + 022F : 
| oo 
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ROUTINE DISMOUNT_VOLSET (DEVLIST, LIST_SIZE, INDEX, ENTIRE_VOLSET, ERROR_STATUS) : NOVALUE = 


le 


' 
FUNCTIONAL DESCRIPTION: 


data base to ref 


CALLING SEQUENCE: 
DISMOUNT_VOLSET (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG] 


IMPLICIT INPUTS: 
<see the EXTERNAL declarations> 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE. 

SIDE EFFECTS: 


BEGIN 


‘EXTERNAL LITERAL 
i ROOTVOL_NAMLEN = 64; 


‘EXTERNAL 

' AAS _DATA_BEGIN : VECTOR fo ° 

! DISMOUNT-COUNT : BBLOCK [4 

! ODS2_VOLOME : BITVECTOR CDOEVMAX), 
' ROOT” PRESENT : BITVECTOR CDEVMAX 
' RUJRAL_PRESENT : BITVECTOR COEVA 

! ROOTVOC_DSC : BBLOCK 

‘ ROOTVOL—BU : BBLOCK CROOTV 

' ROOTVOL- INDEX  : BBLOC 

: VOLSET RvN : VECTO DEVAAK, 

! 22$_DATA_END vector (0); 


‘EXTERNAL ROUTINE 
‘ T_ VOLUME _NAME : ADDRESSIN 
! INTERCEPT_SIGNAL: ADDRESSIN 


—e 


The internal device data base is updated to reflect the 
The user is informed of the progress. 


C 

K -NAMLENI, 

K LOEVMAX, BYTE, UNSIGNED), 
: BYTE, UNSIGNEDJ, 


Dismount all or = of a volume set, and update the local device/volume 
ect the loss of one or more volumes. 


: address of the List of all volumes mounted in this invocation of $SMOUNT 
ARG : number of volumes mounted in this invocation of $SMOUNT 
ARG : index into ARG] (the current volume) 
ARG4 : if O dismount a single volume, otherwise dismount the entire volume set 
ARGS : the journalling error status code 


dismounting of the volume(s). 


! Start of CREATE_JOURNAL 


Maximum Length of a device name 


Mark start of data area 
Count of volumes that were dismounted 
Indicates volume supports ODS-2 file struc 
Indicates presence of root volume for a gi 
Indicates presence of RUJ file on a given 
Root volume device name descriptor 

Buffer for root volume device name 

Each entry contians index+! of root volume 
Vector of Relative Volume Numbers 

Mark end of data area 


Return volume name for a given device 
Condition handler 


SSESS33 35 


oO 
w 


ts 


oOo 
oo 


ne 


ees eee Ney a Ne ee ee ee 


Sanne a 


(G9 Cp G9 CD Cd CD Cd CD Cd GD CD C9 Od CD Cd C9 CD CD CD CD CD CD CD Cd CD CD 09 CD GD OD 
QS WIR OOD NAW E WN 9 ODNOA NE WIN OO ODNOAOV EWN" OOONOUEW 


me a ed a a td od td ad ed dd dd td td = td td = 5 st te 


Ww 
FUN SSaNOAR GN OSes 


DONO UNE WO 


SNS 


MULTI_DISMOUNT 
PRIMARY STATUS 
ROOT_ INDEX 
VOLUME _NAME 


DEVLIST 


DISMOUNT Se 
ROOTDEV1 BUF 
ROOTDEV1_DSC 


ROOTDEV2_BUF 
ROOTDEV2_DSC 


VOLNAML IST_BUF 
VOLNAMLIST-DSC 
VOLSET SIZE 
Vor SETRAR _BUF 
VOLSETNAM- DSC 
VOLUME _REMOVED 


PRIMARY_DVI 


SECONDARY_DV1 


st 
: REF @BLOCK; 


B85 88288 
rn 
oovo 


: Beto BLNI, 
: BITVECTOR coc os BLM 
: BOL OCK C76) ! 


: REF BBLOCKVECTOR CDEVMAX, DSC$K_S_BLN); 
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i SB tNTER) = ROOTDEV1_BUF 
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ROOTDEVNAM) , 
signe BUF), 
DEV2-DSC), 


7 
Enable a condition handler to field and print signalled messages. 
ENABLE INTERCEPT_SIGNAL; 


VAX=-11 Bliss: -32 V 
DISKSVMSMAST 


: flags 4 SDISMOU call 
er 


! Buffer for 
' Vector of volume name descriptors 

!' Number of volumes in the volume set 
' Volume set name buffer 

' Volume set name descriptor 


' 
' 
' 
) 
' 
i 
con PO INTER] = ROOTDEV2_BUF) 
' 
' 
' 
' 
! Mark volume as being removed 


mi) 


4.0-742 
ER: (MOUNT. SRCJRUJMAN. B32; 79 


! Boolean, indicates more than one volume di 
: ery status message code 

! Index in 

! Volume name descriptor 


to device List of root volume for 


root device name 


for primar 
for primary root device name 


Descriptor 


Buffer for 


secondary root device name 
Descriptor 


for secondary root device name 
volume names 


SGETDVI item List for volume set info 
ITEM = Volume set size 


ITEM = Volume set root device name 


' List terminator 


' $GETDVI item List for volume root device n 


ITEM - Volume set root device name 


List terminator 


i for the specified device, fetch the root device name and the number 
of volumes in the volume set. 
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SGETDVI (DEVNAM=DEVLISTC. INDEX, DSCSW_LENGTH], ITMLST=PRIMARY_DVI); 
' 


i For each volume in the gevice List that is being dismounted, 
! update the internal device data base to reflect this change of status. 
; If only volume need be dismounted, this is very simple, otherwise... 


ir NOT .ENTIRE VOL SET 
Og vOUset. SIZE LEQ 1 


BEGIN 
' 
Remove this volume from the data base, and increment the dismount count. 


ODS2 -VOLUMEC, INDEX] = 0; 
ROOT PRESENTL. = {ND NDEX) = 0; 
RUJRAL _ -PRESENTC. | INDEX) = 0; 
VOLSET-RV 

ROOTVOC_INDEXC. inpexas 
DISMOUNT_COUNT = DEN) sO _COUNT + 1; 


~~ 


END 
ELSE 
ee 


e+. Otherwise, if the volume being dismounted is part of a volume 
set, each volume in the device List that is associated with the 
volume set must be removed from the device data base and Ctemgunted. 
The process s complicated if the roct volume is not present in the 
device list. ROOTVOL_INDEX of 0 implies that the root volume is 
not present in” the List; and a string comparison is necessary. 


VOLUME REMOVED = 0; 

ROOT_INDEX = -ROOTVOL i” | he a 

INCR™J FROM 0 TO .LIST_SIZE-1 DO 
eEGIN 


See if the root volume indexes match. If so, further checks are mandated. 


ir (.ROOT_ INDEX EQL .ROOTVOL_INDEXC.J]) 
Tae .ODS2 -VOLUMEC.J 


BEGIN 
The indexes note’ If the number is nonzero, then the root volume has been mounted 
by this invocation of SMOUNT. Otherwise, the root device name of the current device 
: must be fetched and compared against the root device name supplied by the caller. 


IF .ROOT_INDEX NEQ 0 


OR ($GETBVI eUMOOTBEYY 8 J, DSC$W_LENGTH], ITMLST=SECONDARY_DVI) 
IF CHSEQL ¢ V1_DSCCOSc$wW_LERGTH 
EV1“DSCCDSCSA-POINTER 
"ROOTDEV “DSCCDSCSW~LENGTH] 
-ROOTDEV2-DSCLDSCSA_POINTERS 


THEN 
ELSE 


H 14 | 
16-Sep-1984 01:31:48 VAX-11 Bliss-32 V4.0-742 Page 26 
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z2 
Se 


: 91 1437 6 0 

$ 318 143 ) 

:; 9146 14 8 © THEN | 

: 3 iis} § BEGIN | 

: 37 1408 Remove this volume from the data base, and increment the dismount count. | 

: 919 1444 g ps2 -WOLUMEC J | 

; 920 1445 6 T-PRES ENTL, Py 

b4 4 1 1308 ? RUJRAL PR 44 ent 

: 9 : 1468 6 ROOTVOC INDEX 1, 2 Of 

: 926 1449 6 VOLUME gotta 

; 3 5 1450 6 o1 EMAT: eCOUNT = ot _COUNT + 1; 

: ? , 1328 ? 3 Get and save the volume name. This must be done before dismounting the volume. 

; 929 1454 6 VOLUME _NAME = GET -VOLUME_NAME (DEVLISTC.J, DSC$W_LENGTH)); 

: 9 1455 6 VOLNAMCIST_DSC Ji DSCSW- LENGTH] = .VOLUME_NAM eCDSC$u L nGTHI; 

; 931 1928 6 VOLNAMLAST= DSCL. pscsA. BOINTERI = VOLMARC TST B + 71 

: 336 ot 14 9 pel t DOLUME™ _NAME DSC$W_ LENGTH], . VOLUME SNAMELDSCSA “POINTER, -VOLNAMLIST_DSCC.J, DSCSA_ 

: 9 1459 4 END; 

; 935 1460 END; 

; 936 1461 END; 

. ae 

: 939 1464 i The informational message will vary depending on whether or not this is 

; 940 1465 ' @ volume set. Determine the primary message code and the volume name. 

3: 941 1008 ! The volume name must be fetched before the volume is dismounted. 

3 ak eee A local copy of the volume set name is made for future reference. 

: 944 1469 if (.VOLSET_SIZE GTR 1) AND .ENTIRE_VOLSET 

Baa hoe 

> 947 1478 MULTI DISMOUNT = 1; 

; 948 147 = GET VOLUME WARE SVOLURE NA INDEX, DSC$W_LENGTH), 

> 949 147% VOLSE TRAM. DSCCDSCSW_LENGTH] OLUME MECOSCSW_LENGTH); 

; 950 1475 VOLSETNAM_DSCCDSC$A_POIN TER = n BU F; 

; 951 1678 SMOVE (. VOLUME _NARE DSCSW LENOIR. ‘ oe -NAMECDSCSA_POINTER], .VOLSETNAM_DSCCDSCSA_POINTER]); 

; 926 147 RIMARY_STATUS = “MOUNS_ VOLSETSTS 

; 95 1478 END 

i 338 1ep0 § pein 

: 956 1481 MULTI_DISMOUNT = 0; 

: 957 14 ¢ VOLUME NAME = GET VOLUME WARE {pevurste. INDEX, DSC$W_LENGTH)); 

; 958 148 PRIMARY. STATUS = ROUNS_ vOLS 

; 959 1484 END; 

ne ee | 

; 4 1% Dismount all or part of the volume set, as specified by the caller. | 

: 964 14 3 DISMOUNT_FLAGS = 

; $64 1490 IF NOT . ENTIRE voréer 

; 

; 96 149 DISMOUNT_FLAGSCDMT$ Ij} = 

: 968 1498 $D1SMOU CDEVRARCSE VL TSTETINDE DEX, *psisw. LENGTH), FLAGS=.DISMOUNT_FLAGS); 
} 
| 


1984 01:31:48 VAX-11 Bliss-32 V4.0-74 7 
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INCR J FROM 0 TO .LIST size~1 bo 
iF . VOLUME _REMOVEDT. J 


oO 22 
Ned) tet 


we 
VOLUME NAME = GET VOLUME NAME ag td J, DSC$W_LENGTH]); 
ERR UMESSAGE (MOUNS_DISMOONTD, 2, VOLNAML1$T_ DSCCTU, DSCSw_ LENGTH], VOLSETNAM_DSC); 


ooovnono 
@ 


3 38 1494 

3 1495 ! 
3; oF 14 ! Inform the user that at least one volume has been dismounted. 
: 44 1437 Include the status code specified by the caller. : | 
3 are 1235 ERR MESSAGE (.PRIMARY_STATUS, 1, .VOLUME_NAME, MOUNS_CJFERR, 0, .ERROR_STATUS); | 
: 97 13 1 32! 

3 3f8 1 § ' If more than one volume was dismounted, inform the user of each volume 

: are : | * that was dismounted. 

: 9 1505 F MULT MOUNT 

3 oBt 1 iF «MUL ieee 

; ¥ : 0 

; 1 $9 

: 1510 

3 1511 

3 121g 

3 151 

3 1514 

: 1515 


END; ! End of DISMOUNT_VOLSET 


-PSECT SOWNS,NOEXE,2 

00188 eomenee. "es 
0018C er 
00# ON1CC ROOTDEV1_DSC: 


<BYTE 0£4) 
00000000" 00100 ADDRESS ROOTDEV1_BUF 3 
0104 ROOTDEV2_BUF : 64 


LK 

00# 00214 ROOTDEV2. ~pSe: 0r63 

00000000° 6018 -ADDRESS ROOTDEV2_BUF : 
2 


64 


1c VOLNAMLIST > 
002DC VOLNAMLIST DSC: 


-BCKB. 128 
0035C VOLSET_SiZE: 
-BLKB 4 | 
00360 VOLSETNAM BUF: - 
0036C VOLSETNAM DSC: , 
00374 VOLUME -REROVED: 2 
0004 $8378 PRIMARY ive : 
0 63 00° O037¢ a SIZE ; 
3008 00 “LONG 0 * : 


1$-ep-1964 Meese Ped imShASTERcCHGUMT SeCIRUIMAN.B3209%" (3S 0 


D 
«WORD 0 
sADDRESS ROOTDEV1_BUF 
1 ai ROOTDEV1_DSC 
: 


«LON 
94 SECONDARY DVI: 
GORD 


4 
us «WORD 0 
9 «ADDRESS ROOTDEV2_BUF 
H" «ADDRESS RO 
A LONG 


OTDEV2_DSC 


-EXTRN SYSSDISMOU, SYSSCMKRNL 
-PSECT S$CODES,NOWRT,2 
OFFC 00000 spcsrtome.** * whi 


“WO Save R2,R3,R4,R5,R6,R7,R8,RI,R10,R11 : 1266 
5B 000000006 00 9€ 0000 MOVAB SYSSGETDVI, R : : 
SA 0000" CF 9E 0000 MOVAB ROOTVOL_INDEX, R10 ; 
6D 0196 CF DE 0000 MOVAL 21$, (FP) + 1340 F 
— 7C€ 0001 CLRQ. = = (SP) : 1380 
7E 7C 0001 CLRQ  =<(SP) : 
0320 CA 9F 00017 PUSHAB PRIMARY a : 
52 oc A 00 00018 MOVL INDE Re ; 
59 04 BC42 7E OO0TF MOVAQ aDeVeisT R2], RY : 
3 DD 0024 PUSHL  R9 : 
i C 00026 CLROQ (SP) : 
6B 0 FB 900 8 CALLS SYSSGETDVI : 
07 10 AC €9 00028 BLBC eetine _VOLSET, 1$ + 1387 
01 0204 cA DI 900 F CPL YOLSET= “SIZE, #1 : 1388 
00 AC AA 52 «ES 0036 1$: BBCC a, ODS2_VOLUME > 1394 
00 BO AA 5 ED 00 : 3: BBCC Re. ROOT PRESENT, $s : 1395 
00 B4 AA é E 0040 3$: BBCC RUJRAL PRESENT, 4$ : 1396 
10 AAS? 94 00045 4$: CLRB  —-VOLSET R2 : 1397 
6A42 94 00049 CLRB NopTyOc™ INDEXTR2] : 1398 
AB AA b6 004C INCL DT SMOUNT. COUNT $ 1329 
0099 31 O004F BRW 143 : 1387 
O31c ~=OCA B4 0052 5$: CLRW § VOLUME_REMO + 1411 
58 6A42 9A 90 A MOVZBL ROOTVOL. NDE ACR2d. ROOT_INDEX : 1412 
56 01 cE 5A MNEGL #1, J : 1418 
0081 0050 BRW : 
58 6A46 08 99 FD Stee 6$ CMP ZV #8, ROOTVOL_INDEXCJJ, ROOT_INDEX : 
74 AC AA 36 E1 0 BBC J ps2. VOLUME, 12$ > 1419 
b3 6D TSTL ROOT_I > 1427 
1 1 of BNEG 86 7$ ; 
—E 7¢ 1 CLRQ  =(SP) > 1428 
7E 7 i CLRQ =(SP) : 
033c CA 9 7 PUSHAB SECONDARY pv : 
04 BC46 7F 00079 PUSHAQ a@DEVLISTLJ ; 
ze 7¢ 0007D CLRQ orep F 
68 08 FB 0 7F CALLS #8, SYS$GETDVI ; 
o1Bc OCCA 00 0178 DA 17% CA 2D 2 CMPCS © ROOTDEV1_DSC, @ROOTDEV1_DSC+4, #0, - > 1429 
1€0 DA a 6 D att ROOTDEV2~ DSC; @ROOTDEV2~DSC+4 ; 


K 14 
1% -Sep-1 :3 VAX-11 Bliss-32 V4.0-742 
aah rie a et Ln eet 9 
AC AA E 9 7$: BBCC , ODS2_VOLUME 3 1444 
BO AA E : BBCC }! ROOT -ypb une, 8 $s + 1445 
BG OAA : BBCC }3=—s_: J,._: RUJRAL PRESENT, 10$ + 146 
10 AAG6 94 OOOAT 10$:  CLRB VOLSET_RVAL + 144 
6A46 94 OOOA CLRB ROOT VOC INDEXCJ + 1448 
00 O31C CA B68 E2 BBSS LUME E REMOVED, 11$ + 1449 
AB AA p AF 11$: INCL Sf MOUNT t + 1450 
04 BC46 7F 0008 PUSHAQ aDeViIS1Cd + 1454 
0000v cf 1 re 085 CALLS i. T WOLUmE NAME : 
7 0 b OBA MOVL OL ORE 2 | 3 
0284 Cabs F 0008 PUSHAQ NABLI ST” bse J] + 1455 
Ha 6 ag o¢ MOVW ie UME_NAME), a(SP)+ : 
50 5 ¢ ¢ MULL3 #12, J,~RO + 1456 
288 CA46 7F 00009 PUSHAQ VOLNAMLIST_DSC+4(J) : 
9€ 1C4 CAG 3 OOCE MOVAB VOLNAMLIST~BUFCR ; a(sP)+ : 
288 CA46 7F 00004 PUSHAQ VOLNAMLIST-DSC+4(J4 + 1457 
50 % p 0009 MOVL a SP)+, RO ; 
60 04 87 6 00DC MOVC3. (VOLUME_NAME), @4(VOLUME_NAME), (RO) : 
02 4 08 aC Fe OOOE1 12$:  AOBLSS LIST_SIZE, J, 13$ + 1413 
0 1 OOEG BRB 148 F 
FF75 31 QOOOE8 13$: BRW 6$ : 
01 0306 CA 01 000EB 14$: CMPL VOLSET_ SIZE, #1 + 1469 
oF 15 OOF BLEQ ©=«-:«5$ : 
28 10 AC €9 OO0F BLBC ENTIRE VOLSET, 15$ : 
01 00 O00F OVL a. MULTI _DISMOUNT : 1473 
01 DD OO00F PUSHL + 147 
9 DD 000FB PUSHL : 
0000v CF Q FB 000FD CALLS m3. GE GET ovotune NAME ; 
57 D O108 MOVL E 3 
0314 CA 67 80 001 MOV Goleta ts NAME), VOLSETNAM_DSC + 1474 
0318 CA 0308 CA 3 O10A MOV VOLSETNAM_BUF. VOLSETNAM~DSC+4 : 1475 
0318 DA 04 287 67 28 00111 MOVC (VOLUME E INANE)» @ a4(VOLUME-NAME), - : 1476 
52 0072A083 af pe opti? MOVIL #7stzi95.. PRIMARY _STATUS ; 1477 
58 D4 00121 15$:  CLRL noeri _DISMOUNT + 1481 
59 DD 00123 PUSHL R9 + 1482 
0000v cr 4 FB 0125 CALLS . GET VOLUME NAME ; 
7 0 DO 0012A MOVL VOLOME : 
52 0072078 BF «ODO 00120 MOVL R963 15 petaRy.. STATUS + 1483 
0130 CA D4 00134 16$:  CLRL  DISMOUNT FLAGS + 1489 
05 10 AC ES 1 BLBS ENTIRE eVOLset 17$ + 1490 
0130 CA 02 88 0013¢ BISB2 DISMOUNT FLAGS : 1498 
0130 CA DD 00141 17$:  —- PUSHL aa FLAGS > 149 
9 DD 143 PUSHL ; 
2 DD 0014 PUSHL : 
D 00149 PUSHL 3 : 
000000006 06 9F 00148 PUSHAB SYSSD1SMO ; 
000000006 9F 0S FB 00151 CALLS SAS VSSCAKRWL : 
14 AC OD ot 8 PUSHL eahon TUS > 1499 
7E D4 00158 CLRL =(SP) : 
00729058 8F DD 001 PUSHL #7508056 ; 
7 Dp 16 PUSHL VOLUME _NAME : 
1 D 16 PUSHL #1 : 
000000006 00 é 33 1 9 atk: We L TOSSICNAT : 
9? 98 £8 19 BLBC MULTI_DISMOUNT, 208 > 1505 


14 

RUJMAN ibeSe -1984 01:31:48 VAX-11 Bliss-32 V4.0-742 Page 30 
yOu-000 Eater eee rege ee et eRe ete ee smu sman.eserte” (oe 
52 1 Ce 173 MNEGL #1, J : 1507 

A 126 BRB 19$ : 
24 O31C CA 5 178 18$: BBC J VOL UME REMOVED, 19$ + 1508 
04 BC42 PF 0017 PUSHAQ abEVLISTLIJ + 1511 

0000v CF 9 FB 1 CALLS #1, GET_VOLUME_NAME ; 

0 1 MOVL RO, VOLOME_NAME : 
0314 CA 9F OO018A PUSHAB VOLSETNAM BSC + 1512 

0284 cake F 001 PUSHAQ VOLNAMLIST_DSCCJJ : 

DD 001 PUSHL ; 

00729060 8F DD 019 PUSHL #7508064 : 

000000006 00 4 FB 1 CALLS #4, LIBSSIGNAL : 
D1 $2 08 AC F 1A 19$ AOBLSS LIST_SIZE, J, 18$ + 1508 
04 OO1A Z08 RET + 1515 
0000 Be 1$ «WORD Save nothing : 1340 

7E D4 OO1AA CLRL 0s =( SP) : 

5E DD OO1AC PUSHL SP ; 

7E 04 aC 7D OOIAE MOVa. 4(AP), =(SP) : 

0000v CF 03 FB 001B2 CALLS #3, INTERCEPT_SIGNAL ; 

04 00187 RET : 


; Routine Size: 440 bytes, Routine Base: SCODE$S + 02FD 


n 
+] 


nat tae aed a 
14 
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338 } ROUTINE GET_VOLUME_NAME (DEVICE_NAME, FLAG) = 
994 1 'o¢ 
995 1 ! 


FUNCTIONAL DESCRIPTION: 


Given the address of a device name descriptor, return the address of 

a string descriptor for the volume mounted in that device. The volume 
name is from 1 to 12 characters. Since the address returned points to 
routine-local storage, the oer must be copied by the caller to prevent 
the next invocation of this routine from overwriting the result. 


CALLING SEQUENCE: 
GET_VOLUME_NAME (ARG1) 


INPUT PARAMETERS: 
ARG1 : address of device name descriptor 
ARG2 : if present, indicates that the volume set name should be returned. 


IMPLICIT INPUTS: 
<see the EXTERNAL declarations> 


OUTPUT PARAMETERS: 
NONE 


FUSUSUSUSUSISISISISISIOSIST 


SeesSeseeeess 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
Address of the volume name descriptor. 
Return 0 if the device does not contain a volume. 


SIDE EFFECTS: 
NONE . 
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BEGIN ! Start of GET_VOLUME_NAME 


i Allocate plits in the SCODES$ psect to avoid truncation error when 
Linking mountshr. 


SEAR ASS 
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ee ee ee et dd ed od = wd = = Ls sw 9 a 


panes PLIT = SCODES 

38 ~ e 

39 BIND 
040 64 NO_VOLSET_NAME = DESCRIPTOR ('<name n/a>'), 
be) 65 NAME _PREF IX = DESCRIPTOR (‘DISK$"); 

028 67 2 BUILTIN 

044 $8 ACTUALCOUNT; 

045 6 

bc9 7) 5 MP NamE_PREF IX BBLOCK 

048 72 . : ; 


2 V4.0=742 Page 32 
SEMOUNT.SRCIRUJMAN.B32;1°" (8) 


: 104 1573 OWN : 
; 1986 1574 LOGNAM_BUF : BBLOCK tet. ! Buffer for volume logical name ; 
; 1051 1575 LOGNAM_DSC : BBLOCK COSC$k_S_BLNI ! Descriptor for logical name string : 
3 1026 1 a6 PRESET BSCSA_POINTER) = LOGNAM_BUF), ; 
; 10 157 VOLNAM_BUF : BBLOCK ! Buffer for volume name 7 : 
3; 1054 1 4 VOLNAM_DSC : BBLOCK pscéx $_BLNI ! Descriptor for volume name string : 
3 132? 12 PRESET (COSCS$A_POINTER] = VOLNAM_BUF), : 
; 1928 1280 VOLSETNAM_DSC : BBLOCK COSC$K_S_BLNI, ! Decriptor for isolated volume set name : 
; 1058 1386 VOLUME _DVI BBLOCK ([7*4] ! $GETDVI item List for volume info : 
; 1059 158 INITIAL ( ; 
; 1060 1 rf WORD (12) ! ITEM = Volume name : 
; 1061 1585 WORD (DVI$_LOGVOLNAM) , : 
3 1996 1586 LONG (LOGNAM_BUF), : 
3; 106 1587 LONG (LOGNAM_DSC), 3 
3; 1064 1588 WORD (12) ! ITEM = Volume name : 
> 1065 1589 WORD (DVI$_VOLNAM), : 
; 1066 1590 LONG (VOLNAM_BUF), ; 
3: 1067 1591 LONG (VOLNAM_DSC), : ° 
3; 1068 1238 LONG (0) ! List terminator ; 
3; 1069 159 3 : 
3; 1070 1594 : 
3; 1071 1595 ; 
; Io76 1396 ' : 
3; 107 159 ! Get the requested information. ; 
3 Ire 1398 If $GETDVI failied, return 0. : 
3; 1076 1600 IF NOT SGETDVI (DEVNAM=.DEVICE_NAME, ITMLST=VOLUME_DVI) : 
3; 1077 1601 THEN : 
; 1078 1606 RETURN 0; : 
3; 1079 160 : 
: 1080 1604 ! : 
3; 1081 1605 ! If the volume set name was requested, strip off the system-provided : 
: 1088 1606 ! prefix before returning it to the user. If no prefix exists, then 3 
; 108 1607 ! this is not a volume set, and a special message indicating that the ‘ 
; IOee 1608 : volume set name is not available is returned instead. ; 
3; 1086 1610 IF ACTUALCOUNT() GTR 1 3 
3; 1087 1611 3 
3; 1088 1916 IF CHSEQL (.NAME_PREFIXCDSC$W_LENGTH) 3 
> 1089 161 “NAME PREF IXCDSCSA_POINTERS, ; 
3; 1090 1614 -NAME_PREF IXCOSC$W_LENGTH), : 
3; 1091 1615 -LOGNAM_DSCCDOSCSA_POINTERJ 3 
; 1936 1616 : 
3; 109 161 THEN 3 
3 1094 1618 BEGIN 3 
3; 1095 1619 gs thre sileting vtrdhe: = .LOGNAM_DSCCDSC$W_LENGTH] - .NAME PREF IXCOSCS$W_LENGTH); : 
3: 1096 1620 VOLSETNAM_DSCCDSC$A_POINTER] = .LOGNAM_DSCCOSCSA_POCINTER] + .NAME_PREFIXCOSCSW_LENGTH); 3 
3 1097 1621 RETURN VOCSETNAM_DSC; : 
3; 1098 16 § END : 
3; 1099 16 ELSE : 
3; 1100 1624 RETURN NO_VOLSET_NAME; 3 
3 1101 1625 ; 
3 1136 1 $ RETURN VOLNAM_DSC ; 
> 1104 1628 1 END; ! End of GET_VOLUME_NAME : 


3€ «61 


2—F 6€ 20 65 6D 61 


6€ 3C 


semua 


24 48 53 4 


55 


0000 


5 


d3 


444 
0000000' 


00# 
00000000' 


008 
00000000' 


003¢ 


oe te 


0485 
O4BF 
04C0 
4C4 
4¢8 
04C 
040 
0404 


003A4 
003E4 
sie 
003F8 


OOSFC 
00400 


00408 VOLUME_DVI: 
«WORD 


00000 
$3 
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P.AAD: .ASCII \<name n/a>\ 
-BLKB 

P.AAC: .LONG 10 
ADDRESS P.AAD 

P.AAF: .ASCII \DISK$\ 
-BLKB 

P.AAE: ONG 


“ADDRESS P.AAF 

.PSECT SOWNS,NOEXE,2 
LOGNAM_BUE : 

LOGNAM_DSC: 


YTE 0f4) 
-ADDRESS LOGNAM_BUF 
C VOLNAM_ BUF : 12 


VOLNAM_ DSC: 
-BYT 0(4] 
-ADDRESS VOLNAM_BUF 

VOLSETNAM_DSC: 


64 


8 
12 
-WORD 44 
«ADDRESS LOGNAM_BUF 
ee LOGNARL DSC 


«WORD 4 
«ADDRESS VOLNAM_BUF 
ADDRESS VOLNAR DSC 


NO_VOLSET _NAME= 


P.AAC 
NAPE _PREFIX= 


P.AAE 
-PSECT SCODES,NOWRT,2 


GET_VOLUME_NAME : 
-WORD Save R2,R3,R4,R5 
MOVAB LOGNAM. bSC+4, R5 


CLRQ SP) 
CLRQ = = (SP) 

PUSHAB VOLUME_DVI 

PUSHL DEVICE “NAME 

CLRQ. = = (SP) 

CALLS 48, meen 

BLBC 3=E._s«aRO,_-38 

CMPBC«(AP), 

mov GAME PREFIX, R4 

cmpcs Re GNAME_PREFIX+*4, @LOGNAM_DSC+4 


42 
TER: CMOUNT.SRCJRUJMAN. B32: 3° 


Pete ee Be Oe we 


Pete Se Oe Se Oh ee Be Oe Oe Be Se Be we 


BeBe Oe Be Oe Se Se Se Se Se Oe Be Se Se Se Se Se Se Se Se Se Se Be Se ee Be Be Be FHS SHS Oe ee Oe Oe OH FH SH se Se Oe Oe Be Be Se Se SH SH Se Se ee SH F* Oe Se Oe 
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1 42 34 SRI 
14-Sep-1984 12:45:34  DISKSVMSMASTER: (MOUNT. SRCJRUJMAN. B32. 1% «a> voi 
18 AS FC OAS 54 A3 0002E SUBW3 RG, LOGNAM_DSC, VOLSETNAM_DSC : 1619 
1c AS 5 54 ci 00 ADDL3 4. LOGNAM“DSC*4, VOLSETNAM_DSC+4 : 1620) 
0 18 AS SE 00039 MOVAB VOLSETNAM_BSC, RO : 1621, 
94 RET ; 1626, 
50 A? AF E 0008 1$: ROVAB NO_VOLSET_NAME, RO : 
50 10 AS 3E 4 2s: MOVAB VOLNAM_DSC, RO £1626 
50 D4 re 3$: CLRL ~—s_- RO + 1628 
04 O004A RET : | 


; Routine Size: 75 bytes, Routine Base: SCODES + 0408 
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REESE BWW WINN WIN IIIER onononononononononononuht) 2 = 


Ds ee i ee 


ROUTINE INTERCEPT_SIGNAL (SIGNAL, MECHANISM) 

144 

} Functional Description: 

i This routine is a conditon handler whose sole 
reason for existence is to force the primary 
conditon code's facility-code to that of the 
MOUNT facility. 

Input: 


SIGNAL = Address of the signal array 
MECHANISM = Address of the mechanism array 


Output: 
The condition facility code is equal to MOUNS_FACILITY 


BEGIN ! Start of INTERCEPT_SIGNAL 
MAP 
SIGNAL : REF BBLOCK, ' Signal array 
MECHANISM : REF BBLOCK; ! Mechanism array 
EXTERNAL 
MOUNT_OPTIONS : BITVECTOR VOLATILE, : pereee option flags 
USER_STATUS : VECTOR; ! Status return of some routines 


HF, SEGHALLCHF EL _S16_MAMED NEQ SS$_UNWIND 
BEGIN 
Make the facility code MOUNS_FCILITY. 
IF .BBLOCK CSIGNALCCHFSL_SIG_NAME], STSSV_FAC_NOJ EQL 0 
BBLOCK CSIGNALCCHFSL_SIG_NAME], STSSV_FAC_NO) = MOUNS_FACILITY; 
If .BBLOCK CSIGNALCCHFSL_SIG_NAME], STSS$V_MSG_NO) EQL 9 


1984 01:31:48 VAX-11 0-742 P 5 
ats Wi 0}: 31: 4 DISKSVMSMASTER=CMOUNT. SRCIRUJMAN.B32: 1" (33 
= 


BBLOCK CSIGNALCCHFSL_SIG_NAME], STSS$V_MSG_NOJ = .USER_STATUS [0] * (-SBITPOSITION (STS$V_MSG_NO)); 


If the cailer requested it, print the message text associated with the message. 


if .MOUNT_OPTIONS COPT_MESSAGE) 
THEN 


BEGIN 
SIGNAL CCHFSL_SIG_ARGS] = .SIGNAL CCHFSL_SIG_ARGS) = 2; 

PUTMSG (MSGVEC ="SIGNAL CCHFSL S16 ARGSJ, ACTRTN=0, FACNAM=0); 
SIGNAL FCHE SL S1G_ARGS] = .SIGNAL CCHFSL $16 ARGS) + 2; 
BBLOCK CSIGNAC CCAFS$L_SIG_NAMEJ, STSS$V_INHIB-MSG) = 1; 
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: 118 8 oe: 

: 1165 16 

3 1198 16 $ ! If the condition severity code is SEVERE or ERROR, then unwind the 
: 116 16 i stack back to the caller of the frame that established this handler. 
: 1198 193) Return the condition code in RO. 

: 1196 1898 if -BBLOCK Hho PEHE SL S16 _NARE). STSSV_SEVERITY] EQL STSSK_SEVERE 

; 137) 1098 eee SIGNAL CCHFSL_SIG_NAME], STSSV_SEVERITYJ EQL STSSK_ERROR 

: 1178 1696 4 BEGIN 

: 1174 1697 4 MECHANISM CCHFSL_MCH_SAVRO] = .SIGNAL CCHFSL_SIG_NAME); 
3 1175 1998 4 SUNWIND (); 

$ 1128 18 END; 

to} 150) _— 

; 1179 1708 | 
: 1139 100? , Attempt to continue the operation. | 
; 118 1705 2 RETURN (SS$_CONTINUE); | 
: 118 1708 
: 1186 170 1 END; ! End of INTERCEPT_SIGNAL 


.EXTRN USER_STATUS, SYSSPUTMSG 
-EXTRN SYSSONWIND 


q Save R2,R3 : 1629 
5 04 AC 00 00002 MOVL SIGNAL, R2 > 1662 
5 04 Ag 9E 00006 MOVAB 4(R2), R3 ; 
00000920 «BF 63 D1 9000A CMPL (R3), #2336 ; 
65 13 00011 BEQL 4 6«S5$ : 
OFFF = SF 02 Ad B 90013 BITW 2(R3), #4095 + 1668 
0A 12 0001 BNEQ 1$ : 
02 a3 0c 00 00000072 «BF FF 00018 INSV #114, #0, #12, 2(R3) + 1670 
FFF8 BF 63 : 00 3 1$: BIT (R3), #65 : 1672 
50 000000006 00 FD rt 7 00 ¢ ASHL = #3, SER TATUS, RO : 1674 
63 0D 0 : FO 000 INSV RO, #3, #73, (R : 
17 000000006 : E1 99 A 28: BBC #3. MOUNT_OPTIONS+6, 3$ : 1679 
6 2 ce 004 SUBL2 #2. (R2) : 168 
— 7C 904 CLRO. = (§P) : 1683 | 
43 D4 0004 CLRL = = (SP) ; 
52 0D 9 49 PUSHL R2 ; 
000000006 00 04 F 4 CALLS #4, SYSSPUTMSG ; 
6 ; ¢ 5 ADDL2 #2. (R2) > 1684 
03 =A 1 BISB2 #16, 3(R3) + 1685 
04 63 0 a? FD 0 9 3s: CMPZV #0, #3, (R3), #4 + 1693 
02 63 03 0 : 06 CMPZ7V #0, #3, (R3), #2 > 1694 
11 6 BNEQ 5$ ; 
50 08 aC D 67 4$: MOVL RE CHANI SH RO 1697 | 
oc Ad $ p 6B MOVL (R3) (RO) ; | 
; C 0 F CLRO = = (SPS : 1698 
000000006 00 02 FB 00071 CALLS #2, SYSSUNWIND : 


vO4=000 


3; Routine Size: 


124 bytes, 


50 


Routine Base: 


Oe 80078 


SCODES + 0523 


fo Bepct9Be 01:5): : 
5$: MOVL 
RET 


1, RO 
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Dd 
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X- 
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“11 
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Bli 
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TER: 
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' since stack space is at a preaium. 


RODB : BLOCK popese LENGTH + 4, pvTed. ' RODB plus term. zero 
1 RODBA t eee oe aes ENGTH + 4, BYTE), ' RODBA + 0 
§ 10S8 eet ie eee ' 1/0 status block 
STATUS ! completion status 
5 


OOwWO UNE WO 


PP PAAAAMIIN 


' 
Enable a condition handler to field and print signalled messages. 
ENABLE INTERCEPT_SIGNAL; 


3 i} Hi : ROUTINE RCP_RESTART ( DEVNAM: REF BBLOCK) = 

:11 1710 1 {44 

3 1 4 : RCP_RESTART 

; 1191 1718 | FUNCTIONAL DESCRIPTION: 

: 1198 1716 1: Issue RESTART command to the RCP for the specified volume. This 

3 1196 at 1! causes the RCP to restart any recovery operations which were frases 

: Bb 4 : due to inaccessibility of objects. 

3 1137 1219 CALLING SEQUENCE: 

; 1199 1? 9 STATUS = RCP_RESTART ( DEVNAM ); 

; 01 7 § FORMAL PARAMETERS: 

; 1 08 1725 1! DEVNAM = address of descriptor of device name for which frozen 

: ; oe Vy § : Recovery Unit operations are to be restarted. 

: 0% V7 8 COMPLETION CODES: 

; 1208 1730 1: SS$_NORMAL = successful completion 

3; 1209 1731 1 nee 

; 1210 17 ¢ 1 i- 

iy 12 1782} BEGIN 

> 121 1735 

: 1216 17 EXTERNAL ROUTINE 

3: 1215 17 CJFSRECOVERW : aboatatins -MGDE (GENERAL); ! sucertece to RCP 
3; % \$ He : GET VOLUME NAME DRESSING_MODE (GENERAL), ! Return volume name for a given device 
; ; \ a : INTERCEPT SIGNAL: ADDRESSING? MODE (GENERAL); : Condition handler 
5 1219 1741 EXTERNAL LITERAL 

3 ‘ Vee EXESC_SYSEFN; ! system event flag 
:1 1744 2 LOCAL 

3 i § 1782 VOLUME _NAME : REF BBLOCK; ! Volume name descriptor 
‘i I fom 

: i $ 1749 : Allocate space for RODB and RODBA structures. OWN storage is used 

71 17 i 

3 3 17 

3 7 17 

7 17 

3 Y 17 

3 17 

| 17 

3 1 17 

3% 17 

3% 17 

3% 17 

3 1 17 

3} 17 

3 1 17 


ane 
No 
FERS 


! 
i FILL the fixed portions of the RODB and RODBA. 


SELES 


1S-Ben-1966 04:3):48 


RODB CRODBSB_TYPE) = RODBSK_RUJNL:; 
RODB CRODB$B-COUNT) = 1; 

R “SIZE = RODBSK_LENGTH + 4; 
RoDB CRODBSA~PO NTERJ = RODBA; 


VAX-11 Bliss-32 V4.0-742 Pa 9 
DI SKSVMSMASTERSCMOUNT . SACIRUJMAN.B3204°" (105 
object is RU journal 

only one attribute 

actually, this isn't used 

point to attribute block 

termination zero 


attribute is device name 
Length of attribute 
addr of attribute 


| 

| 

i 

| 

* L H = 0; | 
RODBA CRODBASE_ ve = RODBASK_RUJDEVNAM; 
$W_S12 | 

termination zero 
| 

| 


RODBA [RODBASW— 2 -DEVNAMEDSCSU LENGTH]: 
RODBA CRODBASA-POINTER] = .DEVNAMCDSCSA_POINTER]; 
RODBA + RODBASR_LENGTH = 0; 


Send it to the RCP. 

STATUS = CJFSRECOVERW ( CJFSM_RESTART, ' function = RESTART 
RODB, ' OBJECT data block 

' filter list (none) 

' access mode 

' event flag 

' 1/0 status block 

' no AST address 

! no AST parameter 


SN NNO 
—OODONOUNS NO 


ZREF (PSLSC_EXEC), 
EXESC_SYSEFN, 


0°); 
IF .STATUS THEN STATUS = .10SB C 0 2; 


eh ted te whet =) 


seteddananaandadeattHidadaa 
 * 


a a a ee a nd od od od od od td td 
at ht a a sn bs 2 bb a a os as bo a a a a a a i te 


68 90 i If the status code returned by SCREJNL indicates an ‘‘informational'’ message, 
9 91 ! attempt to inform the user of the event. All other status values are handled 
70 35 ! outside of this routine. The status code is signalled, and a condition 
zy + : handler prints the message. 
7 95 2 IF .STATUSCSTSS$V_SEVERITY] EQL STSSK_INFO 
74 ree THEN 
75 79 IN 
7 798 VOLUME NAME = GET VOLUME_NAME (.DEVNAM); 
7 799 ERR_MESSAGE (MOUNS_VOLSTATUS, 1, .VOLUME_NAME, .STATUS); 
78 800 END; 
79 801 
80 Ha » STATUS ! Return status to caller 
81 80 
82 804 END; 
-PSECT SOWNS,NOEXE,2 
00424 pope: -BLKB 13 
One ODBA: .BLKB 1 
043C IOSB: .BLKB 8 
00444 STATUS: .BLKB 4 
-EXTRN CJFSRECOVERW, EXESC_SYSEFN 
-PSECT SCODES,NOWRT,2 
000C 00000 RCP_RESTART: 
‘“ -WORD Save R2.RE ; 1708 
53 0000" CF 9E 00002 MOVAB STATUS, R : 
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15 
JMAN 1b-52 -1984 01:31: VAX-11 Bliss-32 V4.0-742 Page 
v02-000 ease 1882 Phi zbige | PEs imGhASTERSCMOUNT. SkcaRUUMAN.B32—9 "(1 
5E 04 ¢2 7 SUBL2 #4, SP F ; 
6 0078 F OF A MOVAL 384 ¢F : 17 ; 
EO A3 000C0104 &F p F MOVL #786692, RODB : 17 : 
E46 OA EC ARE 7 MOVAB DBA, RODB+ : 17 ; 
FB AS 1C CLRL pB+8 : 17 ; 
EC A 06 1F MOVE #6, RODBA : 17 : 
5 06 AC D ; MOVL DEVNAM 2 ; 17 : 
FE A 62 8B MOVW  (R2), RODBA+2 : 
FO OA 06 Ae OD MOVL  4(R25, RODBA+4 : 17 : 
FS OAS DG 0 CLRL RODBA+8 : 17 ; 
7 C CLRO = =( SP) : 17 : 
FB As OF PUSHAB 10SB ; : 
000000006 af DD PUSHL M#EXESC_SYSEFN : ; 
10 AE 1 pO OVL #1, 16TSP) + 1782 : 
10 AE 9F 0004 PUSHAB 16(SP) : : 
3 p4 004 CLRL = (SP) + 1779 ; 
£0 AS 9F 0004 PUSHAB RODE : ; 
02000000 8F DD 0004A PUSHL  #33554432 ; : 
000000006 09 9 FB 9090 CALLS #8, CJFSRECOVERW ; : 
. D0 0005 MOVL RO, STATUS ; : 
04 63 £9 OO05A BLBC —« STATUS, : 1787 ; 
63 F8 AS DO 0005D MOVL  10SB, STATUS ; 
03 63 03 00 FD 80061 1$: CMPZ2V #0, #3, STATUS, #3 > 1795 
1A 1 0066 BNEQ 2$ : 
52 DD 00 PUSHL R2 : 1798 
FECA CF 01 FB 006A CALLS #1, GET_VOLUME_NAME ; 
$3 DD O006F PUSHL STATUS : 1799 
0 Dd 00071 PUSHL  VOLUME_NAME ; 
01 DD 90073 PUSHL #1 ; 
00724078 = 8F_ «DD 00075 PUSHL #7512187 ; 
000000006 00 04 FB 00078 CALLS #4, LIBSSIGNAL ; 
0 63 00 00082 2$ MOVL STATUS, RO > 1804 
04 0008 RET F 
0000 00086 3$ «WORD Save nothing 3 1734 
7E D4 00088 CLRL 0 =( SP) ; 
5E Dp OO8A PUSHL ; 
7E 04 ac 7 008C¢ MOVa. 4(AP), =(SP) : 
FEEF CF 03 FB 00090 CALLS #3, INTERCEPT_SIGNAL ; 
04 00095 RET ; 


3; Routine Size: 150 bytes, Routine Base: SCODES + 059F 
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180 


-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
SOWNS 1096 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


15 
yo~000 1b-Se0-1 984 My 2b ge Ud mAAS FERS cHGURT SRcaRIMAN.83209%" (165 


; SCODES 1589 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


BE Or a Beal he NS Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBILIB.L32;1 18619 105 0 1000 00:02.0 

: COMMAND QUALIFIERS 

PY BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RUJMAN/OBJ=OBJ$:RUJMAN MSRC$:RUJMAN/UPDATE=(ENHS$:RUJMAN) 


; Size: 1526 60:99 + 1159 data bytes 
. me: . 

; Elapsed Time: 893 if 7.8 

; Lexenes/CPU-Min: 25956 


paneer Used: 212 pages 
; Compilation Complete 
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